home *** CD-ROM | disk | FTP | other *** search
/ X User Tools / X User Tools (O'Reilly and Associates)(1994).ISO / sun4c / archive / tcltk.z / tcltk / slib / tk / demos / dialog < prev    next >
Text File  |  1994-09-20  |  2KB  |  54 lines
  1. #!///////////////////////////////////////////////////////////////////////////usr/STAGE/bin/wish -f
  2. #
  3. # This script generates a sample dialog box that waits for one of three
  4. # buttons to be pressed, then prints a message and exits.
  5.  
  6. # Create two frames in the main window. The top frame will hold the
  7. # message and the bottom one will hold the buttons.  Arrange them
  8. # on above the other, with any extra vertical space split between
  9. # them.
  10.  
  11. frame .top -relief raised -border 1
  12. frame .bot -relief raised -border 1
  13. pack .top .bot -side top -fill both -expand yes
  14.  
  15. # Create the message widget and arrange for it to be centered in the
  16. # top frame.
  17.  
  18. message .top.msg -text "File main.c hasn't been saved to disk since \
  19. it was last modified.  What should I do?" -justify center \
  20. -font -Adobe-helvetica-medium-r-normal--*-240* -aspect 200
  21. pack .top.msg -padx 5 -pady 5 -expand yes
  22.  
  23. # Create the buttons and arrange them from left to right in the bottom
  24. # frame.  Embed the left button in an additional sunken frame to indicate
  25. # that it is the default button.
  26.  
  27. frame .bot.left -relief sunken -border 1
  28. pack .bot.left -side left -expand yes -padx 10 -pady 10
  29. button .bot.left.button -text "Save File" -command "quit save"
  30. pack .bot.left.button -expand yes -padx 6 -pady 6
  31. button .bot.middle -text "Quit Anyway" -command "quit quit"
  32. button .bot.right -text "Return To Editor" -command "quit return"
  33. pack .bot.middle .bot.right -side left -expand yes -padx 10
  34.  
  35. # The procedure below is invoked as the action for each of the buttons.
  36. # It prints a message and exits by destroying the application's main
  37. # window.
  38.  
  39. proc quit button {
  40.     puts stdout "You pressed the \"$button\" button;  bye-bye!"
  41.     destroy .
  42. }
  43.  
  44. bind .top <Enter> {.bot.left.button activate}
  45. bind .top.msg <Enter> {.bot.left.button activate}
  46. bind .bot <Enter> {.bot.left.button activate}
  47. bind .top <Leave> {.bot.left.button deactivate}
  48. bind .top.msg <Leave> {.bot.left.button deactivate}
  49. bind .bot <Leave> {.bot.left.button deactivate}
  50. bind . <1> {.bot.left.button config -relief sunken}
  51. bind . <ButtonRelease-1> {quit save}
  52. focus .
  53. bind . <Return> {quit save}
  54.